www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/userklatch.asp

    <!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%
 '=========================================================
' File: userklatch.asp
' Version:3.0
' Date: 2005-10-22
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 Xmrxw.Com All rights reserved.
' Web: http://www.xmrxw.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579　Msn：zdlmicr@hotmail.com
'=========================================================
dim action,Kid
action=Trim(Request("action"))
Kid=checkStr(trim(Request("Kid")))
response.buffer=true
stats="我发起的聚会"
call nav()
if not founduser then
	Errmsg=Errmsg+"<br>"+"<li>您还没有登陆，请登陆后进行操作。"
	founderr=true
end if

if founderr then
	call Mslove_error()
else
%>
<script language=javascript>
function write_date(flag,h,m)
{
	now=new Date(); //获取当前日期和时间，并赋给now；
　　	Y=now.getYear(); //从now 对象中分离出年份；
　　	M=now.getMonth()+1; //从now 对象中分离出月份；
　　	D=now.getDate(); //从now 对象中分离出日期；
	if (flag==1)
	{
		document.write("<select name='b_hour'>");
	}
	else
	{
		document.write("<select name='e_hour'>");
	}
	for(i=1;i<=24;i++)
	{
		if (i==h)
		{
			document.write("<option value='"+i+"' selected >"+i + "</option>");
		}
		else
		{
			document.write("<option value='"+i+"' >"+i + "</option>");
		}	
	}
	document.write("</select> ");
	if (flag==1)
	{
		document.write("<select name='b_minute'>");
	}
	else
	{
		document.write("<select name='e_minute'>");
	}
	if (m==0)
	{	
		document.write("<option value=0 selected >:00</option>");
	}
	else 
	{
		document.write("<option value=0>:00</option>");
	}
	if (m==30)
	{
		document.write("<option value=30 selected>:30</option>");
	}
	else
	{
		document.write("<option value=30 >:30</option>");
	}
	document.write("</select>");
}
//比较日期的大小
function compareDate(DateOne,DateTwo)
{

	var OneMonth = DateOne.substring(5,DateOne.lastIndexOf ("-"));
	var OneDay = DateOne.substring(DateOne.length,DateOne.lastIndexOf ("-")+1);
	var OneYear = DateOne.substring(0,DateOne.indexOf ("-"));
	
	var TwoMonth = DateTwo.substring(5,DateTwo.lastIndexOf ("-"));
	var TwoDay = DateTwo.substring(DateTwo.length,DateTwo.lastIndexOf ("-")+1);
	var TwoYear = DateTwo.substring(0,DateTwo.indexOf ("-"));

	if (Date.parse(OneMonth+"/"+OneDay+"/"+OneYear) > Date.parse(TwoMonth+"/"+TwoDay+"/"+TwoYear))
	{
		return true;
	}
	else
	{
		return false;
	}
	
}
</script>
<%
call tumppages()'翻页处理
strFileName="userklatch.asp?action="&action&"&Kid="&Kid&""
Select Case action
	Case "add"
		Stats="发起新的聚会"
		Call addtable()
	case "addsave"
		Stats="保存聚会"
		Call addsave()
	Case "edit"
		Stats="修改聚会"
		Call edit()
	Case "editsave"
		Stats="修改保存"
		Call editsave()
	Case "ctrluser"
		Stats="报名管理"
		Call ctrluser()
	Case "执行"
		Stats="执行操作"
		Call Setpart()
	Case "审核"
		Stats="审核用户"
		Call chkuser()
	Case "撤消"
		Stats="撤消用户"
		Call cenuser()
	Case "删除"
		Stats="删除用户"
		Call deluser()
	Case "myjoin"
		Stats="我正在参加的聚会"
		Call myjoin()
	Case "photolist"
		Stats="所有精采图片回顾"
		Call photolist()
	case else
	call main()
End Select
if founderr then call Mslove_error()
end if
call activeonline()
call footer()

sub main()%>
<table width="100%" align=center cellpadding=3 cellspacing=1 class=tableborder1>
<form action="userklatch.asp" method=post name=theForm>
  <tr align="left"> 
    <th height="28" colspan="8" align="center" class=tablebody1><%=stats%></th>
  </tr>
  <tr align="center"> 
    <td width="5%" height="27"  class=tablebody2>状态 </td>
    <td width="9%"  class=tablebody2>类 型</td>
    <td width="32%"  class=tablebody2>主 　　题</td>
    <td width="17%"  class=tablebody2>地点</td>
    <td width="5%"  class=tablebody2>人气</td>
    <td width="18%"  class=tablebody2>结束时间</td>
    <td width="7%"  class=tablebody2>人数</td>
    <td width="7%"  class=tablebody2>操作</td>
  </tr>
  <%dim Checked,id,Typeid
	set rs=server.createobject("adodb.recordset")
	if master or supermaster or standmaster then
	sql="select Checked,Kid,Typeid,Title,address,hits,Enddate,Quota from [Ms_klatch] order by Kid desc"
	else
	sql="select Checked,Kid,Typeid,Title,address,hits,Enddate,Quota from [Ms_klatch] where Username='"&trim(membername)&"' order by kid desc"
	end if
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
call rspages()
do while not rs.eof and page_count<Cint(MaxPerPage)
checked=rs("Checked")
id=rs("Kid")
Typeid=rs("Typeid")
%>
  <tr align="center"> 
    <td width="5%" height="22" align="center"  class=tablebody1> <%if checked=0 then
	  response.write("<font color=blue>未审</font>")
	  else
	  response.Write("<font color=red>已审</font>")
	  end if%> </td>
    <td width="9%" align="center"  class=tablebody1><%
	  Select Case Typeid
	Case 1
	response.Write("周末闲聊")
	Case 2
	response.Write("酒吧畅饮")
	Case 3
	response.Write("郊外远足")
	Case 4
	response.Write("游戏切磋")
	Case 5
	response.Write("逛街看戏")
	Case 6
	response.Write("白领聚会")
	Case 7
	response.Write("网站活动")
	End Select%></td>
    <td width="32%" align="left"  class=tablebody1><a href=klview.asp?id=<%=id%>><%=rs("Title")%></a></td>
    <td align="left"  class=tablebody1><%=rs("address")%></td>
    <td width="5%" align="center"  class=tablebody1><%=rs("hits")%></td>
    <td width="18%" align="left"  class=tablebody1><%=rs("Enddate")%></td>
    <td width="7%" align="center"  class=tablebody1><%=rs("Quota")%> </td>
    <td width="7%" align="center"  class=tablebody1><input type=checkbox name=id value=<%=id%>></td>
  </tr>
  <%page_count=page_count+1
  rs.movenext
  loop
  end if
  %>
  <tr align="center"> 
    <td colspan="8" align="left"  class=tablebody1><%if totalrec>0 then
		  	call showpage(strFileName)
		  end if%></td>
  </tr>
  <tr align="right"> 
    <td colspan="8"  class=tablebody1> <input type=checkbox name=chkall value=on onclick="CheckAll(this.form)">
      选中所有显示记录 
      <input type=submit name=action onclick="{if(confirm('确定执行所选的操作吗?')){this.document.theForm.submit();return true;}return false;}" value="执行" <%if not(master or supermaster or standmaster) then response.write("disabled")%>>
      -&gt; <select name="ck" id="ck">
        <option value="1">确认审核</option>
        <option value="0">撤消审核</option>
      </select> </td>
  </tr>
  </form>
</table>
<%
rs.close
end sub

sub addtable()
if Cint(GroupSetting(170))<>0 and dateadd("n",Cint(GroupSetting(170)),myjoinDate)>=Now() then
  	errmsg=errmsg+"<br>"+"<li>新注册用户"&Cint(GroupSetting(170))&"分钟后才能发布聚会，请稍后<a href=login.asp target=_blank>登录</a>。"
	founderr=true
end if
if Cint(GroupSetting(169))=0 then
	ErrMsg=ErrMsg+"<Br>"+"<li>您没有发布聚会的权限，请与管理员联系。"
   	FoundErr=True
end if
if FoundErr=True then exit sub%>
<script language="JavaScript" src="inc/Mymodify.js"></script>
<table width="100%" align=center cellpadding=3 cellspacing=1 class=tableborder1>
  <form action="userklatch.asp?action=addsave" method=POST name="theForm">
    <tr align="left"> 
      <th height="28" colspan="2" align="center" class=tablebody1><%=stats%></th>
    </tr>
    <tr> 
      <td colspan="2" class=tablebody1><img src="images/fb_0607_24.gif" width="25" height="25"><br>
        1.您发布的活动将经过审核后公布到活动列表。<br>
        2.发起聚会金钱/篇 <b><%=GroupSetting(175)%> <%=GroupSetting(176)%></b> 元  发起聚会魅力/篇 <b><%=GroupSetting(177)%> <%=GroupSetting(178)%></b> 点
		发起聚会经验/篇 <b><%=GroupSetting(179)%> <%=GroupSetting(180)%></b> 点 </td>
    </tr>
    <tr align="center"> 
      <td width="25%"  class=tablebody1 align="right">聚会名称：</td>
      <td width="75%"  class=tablebody1 align="left"><input name="Title" type="text" id="Title" size="40" maxlength="250"></td>
    </tr>
	    <%if Cint(Codeshow(5))=1 then%>
    <tr> 
      <td height="27" align="right"  class=tablebody1>检验码：</td>
      <td align="left"  class=tablebody1> <input type="text" name="codestr" maxlength="4" size="4"> 
        &nbsp;<%=GetCode()%>&nbsp;</td>
    </tr>
    <%end if%>
    <tr align="center"> 
      <td align="right"  class=tablebody1>聚会类别：</td>
      <td align="left"  class=tablebody1><select name="Typeid" id="Typeid">
          <option value="1" selected>周末闲聊</option>
          <option value="2">酒吧畅饮</option>
          <option value="3">郊外远足</option>
          <option value="4">游戏切磋</option>
          <option value="5">逛街看戏</option>
          <option value="6">白领聚会</option>
		  <%if master or standmaster or supermaster then%>
          <option value="7">网站活动</option>
		  <%end if%>
        </select></td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>聚会省份：</td>
      <td align="left"  class=tablebody1><input type=text name=province size=12> 
        <select name="selectp" onChange="selectcityarea('selectp','selectc','theForm');theForm.province.value=this.value;">
          <option value="0" selected>请选择..</option>
        </select></td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>聚会城市：</td>
      <td align="left"  class=tablebody1><input type=text name=city size=12> <select name="selectc" onChange="theForm.city.value=this.value;">
          <option value="0" selected>请选择..</option>
        </select></td>
    </tr>
    <tr align="center">
      <td align="right"  class=tablebody1>聚会地点：</td>
      <td align="left"  class=tablebody1><input name="Address" type="text" id="Address" size="30"></td>
    </tr>
    <script language=javascript src="inc/calendar.js"></script>
    <tr align="center"> 
      <td align="right"  class=tablebody1>开始时间：</td>
      <td align="left"  class=tablebody1><input name=date_b id=date_b size=10 readonly> 
        <a onclick="event.cancelBubble=true;" href="javascript:showCalendar('imageCalendar1',false,'date_b',null);" > 
        <img id="imageCalendar1" width=34 height=21 src="images\button.gif" border="0" align="absmiddle"></a> 
        <script language="javascript"> write_date(1,1,0); </script></td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>结束时间：</td>
      <td align="left"  class=tablebody1><input name=date_e id=date_e size=10 readonly> 
        <a onclick="event.cancelBubble=true;" href="javascript:showCalendar('imageCalendar1',false,'date_e',null);" > 
        <img id="imageCalendar1" width=34 height=21 src="images\button.gif" border="0" align="absmiddle"></a> 
        <script language="javascript"> write_date(2,1,0); </script></td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>性别要求：</td>
      <td align="left"  class=tablebody1><select name="Klatchsex" id="Klatchsex">
          <option value="2" selected>无要求</option>
          <option value="1">男</option>
          <option value="0">女</option>
        </select></td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>年龄要求：</td>
      <td align="left"  class=tablebody1>从 
        <select name="Minage" id="Minage">
          <option value="16">16 </option>
          <option value="17">17 </option>
          <option value="18" selected>18 </option>
          <option value="19">19 </option>
          <option value="20">20 </option>
          <option value="21">21 </option>
          <option value="22">22 </option>
          <option value="23">23 </option>
          <option value="24">24 </option>
          <option value="25">25 </option>
          <option value="26">26 </option>
          <option value="27">27 </option>
          <option value="28">28 </option>
          <option value="29">29 </option>
          <option value="30">30 </option>
          <option value="31">31 </option>
          <option value="32">32 </option>
          <option value="33">33 </option>
          <option value="34">34 </option>
          <option value="35">35 </option>
          <option value="36">36 </option>
          <option value="37">37 </option>
          <option value="38">38 </option>
          <option value="39">39 </option>
          <option value="40">40 </option>
          <option value="41">41 </option>
          <option value="42">42 </option>
          <option value="43">43 </option>
          <option value="44">44 </option>
          <option value="45">45 </option>
          <option value="46">46 </option>
          <option value="47">47 </option>
          <option value="48">48 </option>
          <option value="49">49 </option>
          <option value="50">50 </option>
          <option value="51">51 </option>
          <option value="52">52 </option>
          <option value="53">53 </option>
          <option value="54">54 </option>
          <option value="55">55 </option>
          <option value="56">56 </option>
          <option value="57">57 </option>
          <option value="58">58 </option>
          <option value="59">59 </option>
          <option value="60">60 </option>
        </select>
        岁到 
        <select name="Maxage" class="put" id="Maxage">
          <option value="16">16 </option>
          <option value="17">17 </option>
          <option value="18">18 </option>
          <option value="19">19 </option>
          <option value="20">20 </option>
          <option value="21">21 </option>
          <option value="22">22 </option>
          <option value="23">23 </option>
          <option value="24">24 </option>
          <option value="25">25 </option>
          <option value="26" selected>26 </option>
          <option value="27">27 </option>
          <option value="28">28 </option>
          <option value="29">29 </option>
          <option value="30">30 </option>
          <option value="31">31 </option>
          <option value="32">32 </option>
          <option value="33">33 </option>
          <option value="34">34 </option>
          <option value="35">35 </option>
          <option value="36">36 </option>
          <option value="37">37 </option>
          <option value="38">38 </option>
          <option value="39">39 </option>
          <option value="40">40 </option>
          <option value="41">41 </option>
          <option value="42">42 </option>
          <option value="43">43 </option>
          <option value="44">44 </option>
          <option value="45">45 </option>
          <option value="46">46 </option>
          <option value="47">47 </option>
          <option value="48">48 </option>
          <option value="49">49 </option>
          <option value="50">50 </option>
          <option value="51">51 </option>
          <option value="52">52 </option>
          <option value="53">53 </option>
          <option value="54">54 </option>
          <option value="55">55 </option>
          <option value="56">56 </option>
          <option value="57">57 </option>
          <option value="58">58 </option>
          <option value="59">59 </option>
          <option value="60">60 </option>
        </select>
        岁之间</td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>联系方式：</td>
      <td align="left"  class=tablebody1>只有经过审批的用户,才可以看到您的联系方式!<br> <input name="Telphone" type="text" id="Telphone">
        (电话)<br> <input name="mobie" type="text" id="mobie">
        (手机)<br> <input name="email" type="text" id="email">
        (电子邮件)</td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>接头暗号：</td>
      <td align="left"  class=tablebody1><input name="Klanhao" type="text" id="Klanhao" size="40" maxlength="100"></td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>邀请人数：</td>
      <td align="left"  class=tablebody1><input name="quota" type="text" id="quota" size="4" maxlength="4"></td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>费用预算：</td>
      <td align="left"  class=tablebody1><input name="Money" type="text" id="Money" size="4" maxlength="4">
        元/人</td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>聚会内容：</td>
      <td align="left"  class=tablebody1><textarea name="Content" cols="70" rows="6" id="IDContent"></textarea> 
        <a style=cursor:hand onclick="if (parseInt(IDContent.rows)-3>0)(IDContent.rows=parseInt(IDContent.rows)-3)"><img src="Skins/Default/minus.gif" unselectable="on" border='0'></a> 
        <a style=cursor:hand onclick="if (parseInt(IDContent.rows)+3>3)(IDContent.rows=parseInt(IDContent.rows)+3)"><img src="Skins/Default/plus.gif" unselectable="on" border='0'></a><br>
        不大于1000个字符。 </td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>交通线路：</td>
      <td align="left"  class=tablebody1><textarea name="Takebus" cols="50" rows="4" id="textarea"></textarea> 
        <br>
        不大于500个字符。 </td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>报名说明：</td>
      <td align="left"  class=tablebody1><textarea name="Joinsay" cols="50" rows="4" id="Joinsay"></textarea> 
        <br>
        不大于500个字符。 </td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>注意事项：</td>
      <td align="left"  class=tablebody1><textarea name="Notice" cols="50" rows="4" id="Notice"></textarea> 
        <br>
        不大于500个字符。 </td>
    </tr>
    <tr align="center"> 
      <td colspan="2"  class=tablebody1> <font color="#FF0000"> 
        <input name="isagree" type=checkbox id="isagree">
        我同意 </font><a href="agreement.asp?id=5" target="_blank"><%=webname%>活动条款 </a></td>
    </tr>
    <tr align="center"> 
      <td colspan="2"  class=tablebody1> <input type=Submit value="保存" name=Submit> 
        &nbsp; <input type="reset" name="Clear" value="清除"></td>
    </tr>
  </form>
</table>
<%end sub

sub addsave()''保存记录
if Not ChkPost then'查检提交数据
	ErrMsg=ErrMsg+"<Br>"+"<li>您提交的数据不合法，请不要从外部提交发言。"
   	FoundErr=True
end if

if Cint(Codeshow(5))=1 then
	if Not CodeIsTrue() then
		errmsg=errmsg+"<br>"+"<li>验证码校验失败，请返回刷新页面后再输入验证码。"
		founderr=true
	end if
end if
if Cint(GroupSetting(170))<>0 and dateadd("n",Cint(GroupSetting(170)),myjoinDate)>=Now() then
  	errmsg=errmsg+"<br>"+"<li>新注册用户"&Cint(GroupSetting(170))&"分钟后才能发布聚会，请稍后<a href=login.asp target=_blank>登录</a>。"
	founderr=true
end if
if Cint(GroupSetting(169))=0 then
	ErrMsg=ErrMsg+"<Br>"+"<li>您没有发布聚会的权限，请与管理员联系。"
   	FoundErr=True
end if
dim Title,Typeid,Content,Address,Notice,Touch,Stardate,Enddate
	Title=checkStr(Request("Title"))
	Typeid=checkStr(Request("Typeid"))
	Content=checkStr(Request("Content"))
	Address=checkStr(Request("Address"))
	Notice=checkStr(Request("Notice"))
if Title="" or strLength(request("Title"))>250 then
		errmsg=errmsg+"<br>"+"<li>请输入聚会标题(长度不能大于250)。"
		founderr=true
end if
if Typeid="" or not isnumeric(Typeid) then
		errmsg=errmsg+"<br>"+"<li>请选择聚会类别。"
		founderr=true
end if
if Content="" or strLength(request("Content"))>1000 then
		errmsg=errmsg+"<br>"+"<li>请输入聚会描述(长度不能大于1000)。"
		founderr=true
end if
if Address="" or strLength(request("Address"))>200 then
		errmsg=errmsg+"<br>"+"<li>请输入集合地点或者地标名(长度不能大于200)。"
		founderr=true
end if
if Request("province")="" or Request("city")="" then
		errmsg=errmsg+"<br>"+"<li>请选择省份及城市。"
		founderr=true
end if
if Request("date_b")="" or Request("date_e")="" then
		errmsg=errmsg+"<br>"+"<li>请选择聚会开始和结束时间。"
		founderr=true
end if

if Request("Telphone")="" and Request("mobie")="" and Request("email")="" then
		errmsg=errmsg+"<br>"+"<li>请输入联系方式电话或手机或邮件。"
		founderr=true
end if

if Request("quota")="" then
		errmsg=errmsg+"<br>"+"<li>请输入邀请人数0为不限人数。"
		founderr=true
end if
if Request("Money")="" then
		errmsg=errmsg+"<br>"+"<li>请输入预算费用。"
		founderr=true
end if
if Request("Money")="" then
		errmsg=errmsg+"<br>"+"<li>请输入预算费用。"
		founderr=true
end if
if Notice="" or strLength(Notice)>500 then
		errmsg=errmsg+"<br>"+"<li>请输入注意事项(长度不能大于500)。"
		founderr=true
end if
if request("Takebus")<>"" and strLength(request("Takebus"))>500 then
		errmsg=errmsg+"<br>"+"<li>请输入交通线路(长度不能大于500)。"
		founderr=true
end if
if request("Joinsay")<>"" and strLength(request("Joinsay"))>500 then
		errmsg=errmsg+"<br>"+"<li>请输入报名说明(长度不能大于500)。"
		founderr=true
end if
if request("Klanhao")<>"" and strLength(request("Klanhao"))>100 then
		errmsg=errmsg+"<br>"+"<li>请输入接头暗号(长度不能大于100)。"
		founderr=true
end if
if Chkvalue(1,GroupSetting(175),Cint(GroupSetting(176)))=false then
	errmsg=errmsg+"<br>"+"<li>对不起，您的金币不够请确认。"
	founderr=true
end if
if Chkvalue(2,GroupSetting(177),Cint(GroupSetting(178)))=false then
	errmsg=errmsg+"<br>"+"<li>对不起，您的魅力值不够请确认。"
	founderr=true
end if
if Chkvalue(3,GroupSetting(179),Cint(GroupSetting(180)))=false then
	errmsg=errmsg+"<br>"+"<li>对不起，您的经验值不够请确认。"
	founderr=true
end if
if founderr=true then exit sub
Touch=""&request("Telphone")&"|"&request("mobie")&"|"&request("email")&""
Stardate=Cdate(""&request("date_b")&" "&request("b_hour")&":"&request("b_minute")&"")
Enddate=cdate(""&request("date_e")&" "&request("e_hour")&":"&request("e_minute")&"")
set rs=server.createobject("adodb.recordset")''保存入库
sql="select * from [Ms_klatch] where Typeid="&Typeid&" and username='"&trim(MemberName)&"' and Checked=0"
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
		errmsg=errmsg+"<br>"+"<li>对不起，您在该类中有重复聚会或者没有被审核的聚会。"
		founderr=true
		exit sub
else
rs.addnew()
rs("Title")=title
rs("username")=trim(MemberName)
rs("Typeid")=Typeid
rs("Stardate")=Stardate
rs("Enddate")=Enddate
rs("State")=request("province")
rs("City")=request("City")
rs("Address")=Address
rs("Quota")=Cint(Request("quota"))
rs("Klatchsex")=Cint(Request("Klatchsex"))
rs("Minage")=Cint(Request("Minage"))
rs("Maxage")=Cint(Request("Maxage"))
if request("Klanhao")<>"" then
rs("Klanhao")=request("Klanhao")
end if
rs("Money")=Cint(Request("Money"))
rs("Content")=Content
rs("Touch")=Touch
if request("Joinsay")<>"" then
rs("Joinsay")=request("Joinsay")
end if
if request("Takebus")<>"" then
rs("Takebus")=request("Takebus")
end if
rs("Notice")=Notice
rs("addtime")=now()
rs.update
end if
rs.close
conn.execute("update Ms_user set UserWealth=UserWealth "&GroupSetting(175)&Cint(GroupSetting(176))&",UserEP=UserEP "&GroupSetting(177)&Cint(GroupSetting(178))&",UserCP=UserCP "&GroupSetting(179)&Cint(GroupSetting(180))&" where Userid="&Userid&"")
sucmsg=sucmsg+"<br>"+"<li><b>您已经成功发布聚会。"
		call Mslove_suc()
end sub

sub edit()''修改聚会
dim Klatchname,typeid
set rs=server.createobject("adodb.recordset")
sql="select * from Ms_klatch where Kid="&Kid&""
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
Klatchname=rs("Username")
typeid=rs("Typeid")
if Klatchname<>trim(membername) then
Errmsg=Errmsg+"<li>"+"对不起，这个聚会不是你的发布哦。"
Founderr=true
exit sub
end if
%>
<script language="JavaScript" src="inc/Mymodify.js"></script>
<table width="100%" align=center cellpadding=3 cellspacing=1 class=tableborder1>
  <form action="userklatch.asp?action=editsave" method=POST name="theForm">
    <tr align="left"> 
      <th height="28" colspan="2" align="center" class=tablebody1><%=stats%></th>
    </tr>
    <tr align="center"> 
      <td width="25%"  class=tablebody1 align="right">聚会名称：</td>
      <td width="75%"  class=tablebody1 align="left"><input name="Title" type="text" id="Title" size="40" maxlength="250" value="<%=rs("Title")%>"></td>
    </tr>
		    <%if Cint(Codeshow(5))=1 then%>
    <tr> 
      <td height="27" align="right"  class=tablebody1>检验码：</td>
      <td align="left"  class=tablebody1> <input type="text" name="codestr" maxlength="4" size="4"> 
        &nbsp;<%=GetCode()%>&nbsp;</td>
    </tr>
    <%end if%>
    <input name="Kid" type="hidden" value="<%=Kid%>">
    <tr align="center"> 
      <td align="right"  class=tablebody1>聚会类别：</td>
      <td align="left"  class=tablebody1><select name="Typeid" id="Typeid">
          <option value="1" <%if typeid=1 then%>selected<%end if%>>周末闲聊</option>
          <option value="2" <%if typeid=2 then%>selected<%end if%>>酒吧畅饮</option>
          <option value="3" <%if typeid=3 then%>selected<%end if%>>郊外远足</option>
          <option value="4" <%if typeid=4 then%>selected<%end if%>>游戏切磋</option>
          <option value="5" <%if typeid=5 then%>selected<%end if%>>逛街看戏</option>
          <option value="6" <%if typeid=6 then%>selected<%end if%>>白领聚会</option>
		   <%if master or standmaster or supermaster then%>
          <option value="7" <%if typeid=7 then%>selected<%end if%>>网站活动</option>
		  <%end if%>
        </select></td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>聚会省份：</td>
      <td align="left"  class=tablebody1><input type=text name=province size=12 value="<%=rs("State")%>"> 
        <select name="selectp" onChange="selectcityarea('selectp','selectc','theForm');theForm.province.value=this.value;">
          <option value="0" selected>请选择..</option>
        </select></td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>聚会城市：</td>
      <td align="left"  class=tablebody1><input type=text name=city size=12 value="<%=rs("City")%>"> 
        <select name="selectc" onChange="theForm.city.value=this.value;">
          <option value="0" selected>请选择..</option>
        </select></td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>聚会地点：</td>
      <td align="left"  class=tablebody1><input name="Address" type="text" id="Address" size="30" value="<%=rs("Address")%>"></td>
    </tr>
    <script language=javascript src="inc/calendar.js"></script>
    <tr align="center"> 
      <td align="right"  class=tablebody1>性别要求：</td>
      <td align="left"  class=tablebody1><select name="Klatchsex" id="Klatchsex">
          <option value="2" <%if rs("Klatchsex")=2 then%>selected<%end if%>>无要求</option>
          <option value="1" <%if rs("Klatchsex")=1 then%>selected<%end if%>>男</option>
          <option value="0" <%if rs("Klatchsex")=0 then%>selected<%end if%>>女</option>
        </select></td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>年龄要求：</td>
      <td align="left"  class=tablebody1>从 
        <select name="Minage" id="Minage">
          <option value="<%=rs("Minage")%>" selected><%=rs("Minage")%></option>
          <option value="16">16 </option>
          <option value="17">17 </option>
          <option value="18">18 </option>
          <option value="19">19 </option>
          <option value="20">20 </option>
          <option value="21">21 </option>
          <option value="22">22 </option>
          <option value="23">23 </option>
          <option value="24">24 </option>
          <option value="25">25 </option>
          <option value="26">26 </option>
          <option value="27">27 </option>
          <option value="28">28 </option>
          <option value="29">29 </option>
          <option value="30">30 </option>
          <option value="31">31 </option>
          <option value="32">32 </option>
          <option value="33">33 </option>
          <option value="34">34 </option>
          <option value="35">35 </option>
          <option value="36">36 </option>
          <option value="37">37 </option>
          <option value="38">38 </option>
          <option value="39">39 </option>
          <option value="40">40 </option>
          <option value="41">41 </option>
          <option value="42">42 </option>
          <option value="43">43 </option>
          <option value="44">44 </option>
          <option value="45">45 </option>
          <option value="46">46 </option>
          <option value="47">47 </option>
          <option value="48">48 </option>
          <option value="49">49 </option>
          <option value="50">50 </option>
          <option value="51">51 </option>
          <option value="52">52 </option>
          <option value="53">53 </option>
          <option value="54">54 </option>
          <option value="55">55 </option>
          <option value="56">56 </option>
          <option value="57">57 </option>
          <option value="58">58 </option>
          <option value="59">59 </option>
          <option value="60">60 </option>
        </select>
        岁到 
        <select name="Maxage" class="put" id="Maxage">
          <option value="<%=rs("Maxage")%>" selected><%=rs("Maxage")%></option>
          <option value="16">16 </option>
          <option value="17">17 </option>
          <option value="18">18 </option>
          <option value="19">19 </option>
          <option value="20">20 </option>
          <option value="21">21 </option>
          <option value="22">22 </option>
          <option value="23">23 </option>
          <option value="24">24 </option>
          <option value="25">25 </option>
          <option value="26">26 </option>
          <option value="27">27 </option>
          <option value="28">28 </option>
          <option value="29">29 </option>
          <option value="30">30 </option>
          <option value="31">31 </option>
          <option value="32">32 </option>
          <option value="33">33 </option>
          <option value="34">34 </option>
          <option value="35">35 </option>
          <option value="36">36 </option>
          <option value="37">37 </option>
          <option value="38">38 </option>
          <option value="39">39 </option>
          <option value="40">40 </option>
          <option value="41">41 </option>
          <option value="42">42 </option>
          <option value="43">43 </option>
          <option value="44">44 </option>
          <option value="45">45 </option>
          <option value="46">46 </option>
          <option value="47">47 </option>
          <option value="48">48 </option>
          <option value="49">49 </option>
          <option value="50">50 </option>
          <option value="51">51 </option>
          <option value="52">52 </option>
          <option value="53">53 </option>
          <option value="54">54 </option>
          <option value="55">55 </option>
          <option value="56">56 </option>
          <option value="57">57 </option>
          <option value="58">58 </option>
          <option value="59">59 </option>
          <option value="60">60 </option>
        </select>
        岁之间</td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>联系方式：</td>
      <td align="left"  class=tablebody1>只有经过审批的用户,才可以看到您的联系方式!<br> <input name="Telphone" type="text" id="Telphone" value="<%=split(rs("Touch"),"|")(0)%>">
        (电话)<br> <input name="mobie" type="text" id="mobie" value="<%=split(rs("Touch"),"|")(1)%>">
        (手机)<br> <input name="email" type="text" id="email" value="<%=split(rs("Touch"),"|")(2)%>">
        (电子邮件)</td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>接头暗号：</td>
      <td align="left"  class=tablebody1><input name="Klanhao" type="text" id="Klanhao" size="40" maxlength="100" value="<%=rs("Klanhao")%>"></td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>邀请人数：</td>
      <td align="left"  class=tablebody1><input name="quota" type="text" id="quota" size="4" maxlength="4" value="<%=rs("quota")%>"></td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>费用预算：</td>
      <td align="left"  class=tablebody1><input name="Money" type="text" id="Money" size="4" maxlength="4" value="<%=rs("Money")%>">
        元/人</td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>聚会内容：</td>
      <td align="left"  class=tablebody1><textarea name="Content" cols="70" rows="6" id="IDContent"><%=rs("Content")%></textarea> 
        <a style=cursor:hand onclick="if (parseInt(IDContent.rows)-3>0)(IDContent.rows=parseInt(IDContent.rows)-3)"><img src="Skins/Default/minus.gif" unselectable="on" border='0'></a> 
        <a style=cursor:hand onclick="if (parseInt(IDContent.rows)+3>3)(IDContent.rows=parseInt(IDContent.rows)+3)"><img src="Skins/Default/plus.gif" unselectable="on" border='0'></a><br>
        不大于1000个字符。 </td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>交通线路：</td>
      <td align="left"  class=tablebody1><textarea name="Takebus" cols="50" rows="4" id="textarea"><%=rs("Takebus")%></textarea> 
        <br>
        不大于500个字符。 </td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>报名说明：</td>
      <td align="left"  class=tablebody1><textarea name="Joinsay" cols="50" rows="4" id="Joinsay"><%=rs("Joinsay")%></textarea> 
        <br>
        不大于500个字符。 </td>
    </tr>
    <tr align="center"> 
      <td align="right"  class=tablebody1>注意事项：</td>
      <td align="left"  class=tablebody1><textarea name="Notice" cols="50" rows="4" id="Notice"><%=rs("Notice")%></textarea> 
        <br>
        不大于500个字符。 </td>
    </tr>
    <tr align="center"> 
      <td colspan="2"  class=tablebody1> <input type=Submit value="修改" name=Submit> 
        &nbsp; <input type="reset" name="Clear" value="清除"></td>
    </tr>
  </form>
</table>
<%else
Errmsg=Errmsg+"<li>"+"对不起，没有这个聚会哦。"
Founderr=true
exit sub
end if
rs.close
end sub

sub editsave()''修改保存
dim Title,Typeid,Content,Address,Notice,Touch,Stardate,Enddate,kid
if Not ChkPost then'查检提交数据
	ErrMsg=ErrMsg+"<Br>"+"<li>您提交的数据不合法，请不要从外部提交发言。"
   	FoundErr=True
end if

if Cint(Codeshow(5))=1 then
	if Not CodeIsTrue() then
		errmsg=errmsg+"<br>"+"<li>验证码校验失败，请返回刷新页面后再输入验证码。"
		founderr=true
	end if
end if
kid=checkStr(Request("kid"))
	Title=checkStr(Request("Title"))
	Typeid=checkStr(Request("Typeid"))
	Content=checkStr(Request("Content"))
	Address=checkStr(Request("Address"))
	Notice=checkStr(Request("Notice"))
	if Kid="" or not isnumeric(Kid) then
			errmsg=errmsg+"<br>"+"<li>参数错误。"
		founderr=true
end if
if Title="" or strLength(request("Title"))>250 then
		errmsg=errmsg+"<br>"+"<li>请输入聚会标题(长度不能大于250)。"
		founderr=true
end if
if Typeid="" or not isnumeric(Typeid) then
		errmsg=errmsg+"<br>"+"<li>请选择聚会类别。"
		founderr=true
end if
if Content="" or strLength(request("Content"))>1000 then
		errmsg=errmsg+"<br>"+"<li>请输入聚会描述(长度不能大于1000)。"
		founderr=true
end if
if Address="" or strLength(request("Address"))>200 then
		errmsg=errmsg+"<br>"+"<li>请输入集合地点或者地标名(长度不能大于200)。"
		founderr=true
end if
if Request("province")="" or Request("city")="" then
		errmsg=errmsg+"<br>"+"<li>请选择省份及城市。"
		founderr=true
end if
if Request("Telphone")="" and Request("mobie")="" and Request("email")="" then
		errmsg=errmsg+"<br>"+"<li>请输入联系方式电话或手机或邮件。"
		founderr=true
end if

if Request("quota")="" then
		errmsg=errmsg+"<br>"+"<li>请输入邀请人数0为不限人数。"
		founderr=true
end if
if Request("Money")="" then
		errmsg=errmsg+"<br>"+"<li>请输入预算费用。"
		founderr=true
end if
if Request("Money")="" then
		errmsg=errmsg+"<br>"+"<li>请输入预算费用。"
		founderr=true
end if
if Notice="" or strLength(Notice)>500 then
		errmsg=errmsg+"<br>"+"<li>请输入注意事项(长度不能大于500)。"
		founderr=true
end if
if request("Takebus")<>"" and strLength(request("Takebus"))>500 then
		errmsg=errmsg+"<br>"+"<li>请输入交通线路(长度不能大于500)。"
		founderr=true
end if
if request("Joinsay")<>"" and strLength(request("Joinsay"))>500 then
		errmsg=errmsg+"<br>"+"<li>请输入报名说明(长度不能大于500)。"
		founderr=true
end if
if request("Klanhao")<>"" and strLength(request("Klanhao"))>100 then
		errmsg=errmsg+"<br>"+"<li>请输入接头暗号(长度不能大于100)。"
		founderr=true
end if
if founderr=true then exit sub
Touch=""&request("Telphone")&"|"&request("mobie")&"|"&request("email")&""
set rs=server.createobject("adodb.recordset")''保存入库
sql="select * from [Ms_klatch] where kid="&kid&" and username='"&trim(MemberName)&"'"
rs.open sql,conn,1,3
if rs.eof or rs.bof then
		errmsg=errmsg+"<br>"+"<li>对不起，没有该聚会活动哦。"
		founderr=true
		exit sub
else
rs("Title")=title
rs("username")=trim(MemberName)
rs("Typeid")=Typeid
rs("State")=request("province")
rs("City")=request("City")
rs("Address")=Address
rs("Quota")=Cint(Request("quota"))
rs("Klatchsex")=Cint(Request("Klatchsex"))
rs("Minage")=Cint(Request("Minage"))
rs("Maxage")=Cint(Request("Maxage"))
if request("Klanhao")<>"" then
rs("Klanhao")=request("Klanhao")
end if
rs("Money")=Cint(Request("Money"))
rs("Content")=Content
rs("Touch")=Touch
if request("Joinsay")<>"" then
rs("Joinsay")=request("Joinsay")
end if
if request("Takebus")<>"" then
rs("Takebus")=request("Takebus")
end if
rs("Notice")=Notice
rs.update
end if
rs.close
sucmsg=sucmsg+"<br>"+"<li><b>您已经成功修改聚会。"
		call Mslove_suc()
end sub

sub ctrluser()''管理报名用户%>
<table width="100%"  align=center cellpadding=3 cellspacing=1 class=tableborder1>
<form action="userklatch.asp" method=post name=theForm>
  <tr align="center"> 
    <th height="28" colspan="8">报名管理</th>
  </tr>
  <tr align="center"> 
    <td width="9%" class="tablebody2">状态</td>
    <td width="16%" class="tablebody2">用户名</td>
    <td width="8%" class="tablebody2">性别</td>
    <td width="9%" class="tablebody2">年龄</td>
    <td width="13%" class="tablebody2">属性</td>
    <td width="18%" class="tablebody2">报名时间</td>
    <td width="19%" class="tablebody2">注册时间</td>
    <td width="8%" class="tablebody2">操作</td>
  </tr>
  <%dim jid,Checked
	set rs=server.createobject("adodb.recordset")
  sql="select j.id,j.Username,j.Jointime,j.Checked,u.usersex,u.UserBirthday,u.UserVip,u.JoinDate from Ms_kljoin j inner join Ms_user u on j.username=u.username where j.Kid="&Kid&""
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
call rspages()
do while not rs.eof and page_count<Cint(MaxPerPage)
jid=rs("id")
Checked=rs("Checked")
%>
  <tr align="center"> 
    <td class="tablebody1"><%if checked=0 then
	  response.write("<font color=blue>未审</font>")
	  else
	  response.Write("<font color=red>已审</font>")
	  end if%></td>
    <td class="tablebody1"><a href=dispuser.asp?username=<%=rs("username")%>><%=rs("username")%></a></td>
    <td class="tablebody1"><%if rs("Usersex")=1 then
response.write("酷哥")
else
response.write("靓女")
end if%></td>
    <td class="tablebody1"><%=datediff("yyyy",rs("Userbirthday"),Now())%></td>
    <td class="tablebody1"><%if rs("Uservip")>1 then
response.write("<img src=Skins/Default/vip.gif align=absmiddle>&nbsp;<font color=red>VIP会员</font>")
else
response.write("<img src=Skins/Default/messages1.gif align=absmiddle>&nbsp;<font color=blue>普通会员</font>")
end if%></td>
    <td class="tablebody1"><%=rs("Jointime")%></td>
    <td class="tablebody1"><%=rs("JoinDate")%></td>
    <td class="tablebody1"><input type=checkbox name=id value=<%=jid%>></td>
  </tr>
  <%page_count=page_count+1
  rs.movenext
  loop
  else
  response.Write("<tr><td colspan=8 class=tablebody1 align=center>没有用户报名</td></tr>")
  end if
  %>
  <tr> 
    <td colspan="8" class="tablebody2"><%if totalrec>0 then
		  	call showpage(strFileName)
		  end if%></td>
  </tr>
    <tr align="right"> 
      <td colspan="8" class="tablebody1"> 
        <input type=checkbox name=chkall value=on onclick="CheckAll(this.form)">
<input type=hidden name=Kid value=<%=Kid%>>
        选中所有显示记录&nbsp; 
        <input type=submit name=action onclick="{if(confirm('确定审核选定的用户吗?')){this.document.theForm.submit();return true;}return false;}" value="审核">
        &nbsp; <input type=submit name=action onclick="{if(confirm('确定撤消选定的用户吗?')){this.document.theForm.submit();return true;}return false;}" value="撤消">
        &nbsp; <input type=submit name=action onclick="{if(confirm('确定删除选定的用户吗?')){this.document.theForm.submit();return true;}return false;}" value="删除">
      </td>
  </tr>
  </form>
</table>
<%rs.close
end sub

sub chkuser()''审核用户
dim delid,FixID,Kusername
delid=replace(request("id"),"'","")
delid=replace(delid,";","")
delid=replace(delid,"--","")
delid=replace(delid,")","")
fixid=replace(delid,",","")
fixid=Trim(replace(fixid," ",""))
If Not IsNumeric(fixid) Then
	Errmsg=Errmsg+"<br><li>错误的参数。"
	founderr=true
End If
if delid="" or isnull(delid) then
Errmsg=Errmsg+"<li>"+"请选择相关ID。"
Founderr=true
end if
set rs=server.createobject("adodb.recordset")
sql="select Username from [Ms_klatch] where Kid="&Kid&""
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
Kusername=rs(0)
else
Errmsg=Errmsg+"<li>"+"没有该活动。"
Founderr=true
end if
rs.close
if Kusername<>membername then
Errmsg=Errmsg+"<li>"+"你没有管理报名的权限。"
Founderr=true
end if
if founderr=true then exit sub
conn.execute("update Ms_kljoin set Checked=1 where ID in("&delid&")")
sucmsg=sucmsg+"<br>"+"<li>您已成功审核选定用户。"
	call Mslove_suc()
end sub

sub cenuser()''撤消用户
dim delid,FixID,Kusername
delid=replace(request("id"),"'","")
delid=replace(delid,";","")
delid=replace(delid,"--","")
delid=replace(delid,")","")
fixid=replace(delid,",","")
fixid=Trim(replace(fixid," ",""))
If Not IsNumeric(fixid) Then
	Errmsg=Errmsg+"<br><li>错误的参数。"
	founderr=true
End If
if delid="" or isnull(delid) then
Errmsg=Errmsg+"<li>"+"请选择相关ID。"
Founderr=true
end if
set rs=server.createobject("adodb.recordset")
sql="select Username from [Ms_klatch] where Kid="&Kid&""
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
Kusername=rs(0)
else
Errmsg=Errmsg+"<li>"+"没有该活动。"
Founderr=true
end if
rs.close
if Kusername<>membername then
Errmsg=Errmsg+"<li>"+"你没有管理报名的权限。"
Founderr=true
end if
if founderr=true then exit sub
conn.execute("update Ms_kljoin set Checked=0 where ID in("&delid&")")
sucmsg=sucmsg+"<br>"+"<li>您已成功撤消选定用户。"
	call Mslove_suc()
end sub

sub deluser()''删除用户
dim delid,FixID,Kusername
delid=replace(request("id"),"'","")
delid=replace(delid,";","")
delid=replace(delid,"--","")
delid=replace(delid,")","")
fixid=replace(delid,",","")
fixid=Trim(replace(fixid," ",""))
If Not IsNumeric(fixid) Then
	Errmsg=Errmsg+"<br><li>错误的参数。"
	founderr=true
End If
if delid="" or isnull(delid) then
Errmsg=Errmsg+"<li>"+"请选择相关ID。"
Founderr=true
end if
set rs=server.createobject("adodb.recordset")
sql="select Username from [Ms_klatch] where Kid="&Kid&""
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
Kusername=rs(0)
else
Errmsg=Errmsg+"<li>"+"没有该活动。"
Founderr=true
end if
rs.close
if Kusername<>membername then
Errmsg=Errmsg+"<li>"+"你没有管理报名的权限。"
Founderr=true
end if
if founderr=true then exit sub
conn.execute("delete from Ms_kljoin where ID in("&delid&")")
sucmsg=sucmsg+"<br>"+"<li>您已成功删除选定用户。"
	call Mslove_suc()
end sub

sub myjoin()''我正在参加的聚会
%>
<table width="100%" align=center cellpadding=3 cellspacing=1 class=tableborder1>
    <tr align="left"> 
      <th height="28" colspan="6" align="center" class=tablebody1><%=stats%></th>
    </tr>
    <tr align="center"> 
      <td width="6%" height="27"  class=tablebody2>状态 </td>
      <td width="10%"  class=tablebody2>类 型</td>
      <td width="39%"  class=tablebody2>主 　　题</td>
      <td width="11%"  class=tablebody2>城市</td>
      <td width="17%"  class=tablebody2>报名时间</td>
      <td width="17%"  class=tablebody2>结束时间</td>
    </tr>
    <%dim Checked,id,Typeid
	set rs=server.createobject("adodb.recordset")
	sql="select j.Jointime,j.Checked,j.Kid,k.Title,k.Typeid,k.Enddate,k.City from Ms_kljoin j inner join Ms_klatch k on j.kid=k.kid where j.Username='"&trim(membername)&"'"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
call rspages()
do while not rs.eof and page_count<Cint(MaxPerPage)
checked=rs("Checked")
id=rs("Kid")
Typeid=rs("Typeid")
%>
    <tr align="center"> 
      <td width="6%" height="22" align="center"  class=tablebody1> <%if checked=0 then
	  response.write("<font color=blue>未审</font>")
	  else
	  response.Write("<font color=red>已审</font>")
	  end if%> </td>
      <td width="10%" align="center"  class=tablebody1> <%
	  Select Case Typeid
	Case 1
	response.Write("周末闲聊")
	Case 2
	response.Write("酒吧畅饮")
	Case 3
	response.Write("郊外远足")
	Case 4
	response.Write("游戏切磋")
	Case 5
	response.Write("逛街看戏")
	Case 6
	response.Write("白领聚会")
	Case 7
	response.Write("网站活动")
	End Select%> </td>
      <td width="39%" align="left"  class=tablebody1><a href=klview.asp?id=<%=id%>><%=rs("Title")%></a></td>
      <td align="center"  class=tablebody1><%=rs("city")%></td>
      <td width="17%" align="center"  class=tablebody1><%=rs("Jointime")%></td>
      <td align="left"  class=tablebody1><%=rs("Enddate")%> </td>
    </tr>
    <%page_count=page_count+1
  rs.movenext
  loop
  end if
  %>
    <tr align="center"> 
      <td colspan="6" align="left"  class=tablebody2> <%if totalrec>0 then
		  	call showpage(strFileName)
		  end if%> </td>
    </tr>
</table>
<%rs.close
end sub


sub photolist()''所有图片列表
%><table width="100%" align=center cellpadding=3 cellspacing=1 class=tableborder1>
  <tr>
  <%dim iph,klphotoid
	set rs=server.createobject("adodb.recordset")
sql="select Klphoto from Ms_klatch where Kid="&kid&""
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
klphotoid=rs("Klphoto")
else
klphotoid=""
end if
rs.close
	set rs=server.createobject("adodb.recordset")
sql="select Filename,Readme from Ms_Upfile where FID in ("&klphotoid&")"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
iph=0
do while not rs.eof%>
    <td align="center" class=tablebody2> 
      <table width="200" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="200" height="146" align="center" class=tablebody1><a href=<%=rs("Filename")%> target=_blank title=点击放大><img src=<%=SaveUpFilesPath&"/"&rs("Filename")%> width="188" height="141" border="0"></a></td>
        </tr>
        <tr> 
          <td height="30" align="center" class=tablebody1><%=left(rs("Readme"),10)%></td>
        </tr>
      </table>
    </td>
<%iph=iph+1
if iph>0 and iph mod 3=0 then
response.Write("</tr><tr>")
end if
rs.movenext
  loop
  else
  response.Write("<img src=Skins/Default/klatch/xx.jpg>")
  end if
  rs.close%>
  </tr>
</table>
<%end sub

sub Setpart()''执行操作
dim delid,FixID,ck
if not (master and supermaster and standmaster) then
if Cint(GroupSetting(119))=0 then
	errmsg=errmsg+"<br>"+"<li>您没有审核撤消约会的权限，请联系管理员。"
	founderr=true
end if
end if
ck=checkStr(Request("ck"))
if ck="" or not isnumeric(ck) then
	errmsg=errmsg+"<br>"+"<li>请选择执行操作的项目。"
	founderr=true
end if
delid=replace(request("id"),"'","")
delid=replace(delid,";","")
delid=replace(delid,"--","")
delid=replace(delid,")","")
fixid=replace(delid,",","")
fixid=Trim(replace(fixid," ",""))
If Not IsNumeric(fixid) Then
	Errmsg=Errmsg+"<br><li>错误的参数。"
	founderr=true
End If
if delid="" or isnull(delid) then
Errmsg=Errmsg+"<li>"+"错误的参数。"
Founderr=true
end if
if founderr=true then exit sub
conn.execute("update Ms_klatch set Checked="&ck&" where Kid in("&delid&")")
sucmsg=sucmsg+"<br>"+"<li>您已成功执行所选定的记录。"
	call Mslove_suc()
end sub%>
<script>
first("selectp","selectc","theForm",0,0)
</script>  
</body>
</html>